home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / mail / IrisUpdate.lha / IrisUpdateV1.4 / Update_Iris < prev   
Encoding:
Text File  |  1998-05-01  |  1.2 KB  |  63 lines
  1. ; Update Iris V1.2 to V1.3
  2.  
  3. path "" add
  4.  
  5. copy Iris.pch T:
  6.  
  7. set olddir `cd`
  8. unset dir
  9. set dir `requestfile "" TITLE "Select Iris drawer (don't drop files)" DRAWERSONLY`
  10. if "$dir" eq "*$dir"
  11.   endcli
  12. endif
  13.  
  14. cd $dir
  15. if warn ; ASL/RequestFile bug???
  16.   requestchoice >NIL: Update_Iris "CD failed. Probably you*Ndropped a file on the*Nrequester. Please only*Ndrop drawers." OK
  17.   endcli
  18. endif
  19.  
  20. version >NIL: Iris 1 3
  21. if warn
  22.   requestchoice >NIL: Update_Iris "You need Iris V1.3*Nto use this patch." OK
  23.   endcli
  24. endif
  25.  
  26. version >NIL: Iris 1 4
  27. if not warn
  28.   requestchoice >NIL: Update_Iris "Your Iris program is*Ntoo new for this patch." OK
  29.   endcli
  30. endif
  31.  
  32. gpatch Iris T:Iris.pch T:newfile
  33. if error
  34.   requestchoice >NIL: Update_Iris "Patch failed." OK
  35.   endcli
  36. endif
  37. copy T:newfile Iris
  38. if error
  39.   requestchoice >NIL: Update_Iris "Failed to copy program." OK
  40.   endcli
  41. endif
  42.  
  43. gpatch Iris.guide T:Iris.pch T:newfile
  44. if error
  45.   requestchoice >NIL: Update_Iris "Patch failed." OK
  46.   endcli
  47. endif
  48. copy T:newfile Iris.guide
  49. if error
  50.   requestchoice >NIL: Update_Iris "Failed to copy program." OK
  51.   endcli
  52. endif
  53.  
  54. delete >NIL: T:newfile
  55. delete >NIL: T:Iris.pch
  56. unset dir
  57. cd $olddir
  58. unset olddir
  59.  
  60. requestchoice >NIL: Update_Iris "Patch finished." OK
  61.  
  62. endcli
  63.